home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / getting there / TCP⁄PPP⁄SLIP / Scripts / scr-minimal-dialing-script.txt < prev    next >
Text File  |  1994-03-11  |  1KB  |  45 lines
  1. ! Original script by Fred Morris
  2. ! Modifications and comments by Adam C. Engst
  3. ! 21-Feb-94 = Added redial feature (ACE)
  4.  
  5. @originate
  6. ! Initialize mode from string in InterSLIP configuration
  7. note "Initializing modem"
  8. write "^4\13"
  9. pause 20
  10. ! Dial modem from number in InterSLIP configuration
  11. note "Dialing ^1"
  12. write "atdt^1\13"
  13. ! Check only for BUSY or CONNECT, then redial or connect
  14. matchstr 1 10 "BUSY"
  15. matchstr 2 20 "CONNECT"
  16. matchread 500
  17.  
  18. @label 10
  19. ! The line is busy, so let's redial the modem indefinitely
  20. ! This will also redial after the (matchread 500) timeout if you get endless rings
  21. note "Line busy, redialing ^1"
  22. ! First hang up and reinitialize modem from string in InterSLIP configuration
  23. write "+++"
  24. pause 60
  25. write "ath\13"
  26. write "^4\13"
  27. ! Then go back and dial again using phone number in InterSLIP configuration
  28. jump originate
  29.  
  30. @label 20
  31. ! Everything worked fine, you're connected now
  32. note "Dialed successfully"
  33. exit 0
  34.  
  35. @answer
  36. @hangup
  37. ! Hang up the modem and reinitialize from string in InterSLIP configuration
  38. ! The only way to get here is to manually click the Disconnect button
  39. note "Hanging up modem"
  40. write "+++"
  41. pause 60
  42. write "ath\13"
  43. write "^4\13"
  44. exit 0
  45.